Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Menu1.dxr/00001_Startup.ls

Text File | 1998-12-16 | 1.2 KB | 50 lines

global gMasterData, gBlinker, gFlashTime

on startMovie
  setModule(gMasterData, #menu1)
  setUserArea(gMasterData, #menu1)
  setBlinker()
  set the keyDownScript to "quitCatcher"
  cursor(0)
end

on setBlinker
  repeat with thisArea in [#myself, #measure, #history, #mirror]
    if not activationOn(gMasterData, thisArea) then
      set gBlinker to thisArea
      exit
    end if
  end repeat
  set gBlinker to #empty
end

on blinkSprite
  if gBlinker <> #empty then
    set vNewTime to the ticks
    if vNewTime > gFlashTime then
      case gBlinker of
        #myself:
          set vFlashSprite to 3
          set upMember to "area1"
        #measure:
          set vFlashSprite to 4
          set upMember to "area2"
        #history:
          set vFlashSprite to 5
          set upMember to "area3"
        #mirror:
          set vFlashSprite to 6
          set upMember to "area4"
      end case
      set vThisName to the name of member the member of sprite vFlashSprite
      case vThisName of
        upMember:
          set the member of sprite vFlashSprite to member (upMember && "flash")
        (upMember && "flash"):
          set the member of sprite vFlashSprite to member upMember
      end case
      set gFlashTime to the ticks + 60
    end if
  end if
end